home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / PROGRAMMING / DESKLIBC / SOURCES.ZIP / DeskLib / !DLSources / Libraries / MsgTrans / s / Lookup < prev    next >
Text File  |  1994-11-19  |  980b  |  68 lines
  1. a1 RN 0
  2. a2 RN 1
  3. a3 RN 2
  4. a4 RN 3
  5. v1 RN 4
  6. v2 RN 5
  7. v3 RN 6
  8. v4 RN 7
  9. v5 RN 8
  10. v6 RN 9
  11. sl RN 10
  12. fp RN 11
  13. ip RN 12
  14. sp RN 13
  15. lr RN 14
  16. pc RN 15
  17.  
  18. r0  RN 0
  19. r1  RN 1
  20. r2  RN 2
  21. r3  RN 3
  22. r4  RN 4
  23. r5  RN 5
  24. r6  RN 6
  25. r7  RN 7
  26. r8  RN 8
  27. r9  RN 9
  28.  
  29. f0 FN 0
  30. f1 FN 1
  31. f2 FN 2
  32. f3 FN 3
  33. f4 FN 4
  34. f5 FN 5
  35. f6 FN 6
  36. f7 FN 7
  37.  
  38.  
  39. XOS_Bit                         EQU &020000
  40.  
  41. SWI_MessageTrans_FileInfo       EQU &041500
  42. SWI_MessageTrans_OpenFile       EQU &041501
  43. SWI_MessageTrans_Lookup         EQU &041502
  44. SWI_MessageTrans_CloseFile      EQU &041504
  45.  
  46.         AREA |D$$code|, CODE, READONLY
  47.  
  48.         EXPORT MessageTrans_Lookup
  49.  
  50. MessageTrans_Lookup
  51.  
  52.         MOV     ip,sp
  53.         STMFD   sp!,{v1,v2,v3,v4,v5,v6,lr}
  54.  
  55.         MOV     r8,r2
  56.         MOV     r9,r3
  57.         LDR     r2,[r8]
  58.         LDR     r3,[r9]
  59.         LDMIA   ip,{r4,r5,r6,r7}
  60.         SWI     SWI_MessageTrans_Lookup + XOS_Bit
  61.         STR     r2,[r8]
  62.         STR     r3,[r9]
  63.  
  64.         MOVVC   a1,#0
  65.         LDMFD   sp!,{v1,v2,v3,v4,v5,v6,pc}^
  66.  
  67.         END
  68.